Mac Mania 2

home *** CD-ROM | disk | FTP | other *** search

/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / mortgage.bas < prev next >

Unknown | 1994-05-18 | 1.5 KB | [ZTKN/ZBAS]

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default

id metadata
key	value
macFileType	`[ZTKN]`
macFileCreator	`[ZBAS]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 0c 00 01 ff d2 00 00 | f0 16 20 62 00 00 00 3a |........|.. b...:|
|000000c0| 00 02 ff f2 00 00 f0 64 | 20 30 2c 20 5f 63 61 73 |.......d| 0, _cas|
|000000d0| 65 49 6e 73 65 6e 73 69 | 74 69 76 65 20 5f 73 74 |eInsensi|tive _st|
|000000e0| 72 52 65 73 6f 75 72 63 | 65 20 5f 6d 61 63 73 62 |rResourc|e _macsb|
|000000f0| 75 67 4c 61 62 65 6c 73 | 00 00 00 52 00 03 ff c4 |ugLabels|...R....|
|00000100| 00 00 f0 13 20 65 6e 74 | 65 72 20 33 20 6f 66 20 |.... ent|er 3 of |
|00000110| 74 6f 74 61 6c 20 6d 6f | 72 74 67 61 67 65 2c 74 |total mo|rtgage,t|
|00000120| 69 6d 65 20 6c 65 66 74 | 20 6f 6e 20 6d 6f 72 74 |ime left| on mort|
|00000130| 67 61 67 65 2c 69 6e 74 | 65 72 65 73 74 20 72 61 |gage,int|erest ra|
|00000140| 74 65 2c 20 70 61 79 6d | 65 6e 74 73 00 00 00 50 |te, paym|ents...P|
|00000150| 00 00 ff ac 00 00 f0 13 | 20 20 20 20 20 20 20 20 |........|        |
|00000160| 20 20 20 20 20 20 20 61 | 6e 64 20 66 6f 75 72 74 |       a|nd fourt|
|00000170| 68 20 77 69 6c 6c 20 22 | 6d 61 67 69 63 61 6c 6c |h will "|magicall|
|00000180| 79 22 20 61 70 70 65 61 | 72 20 28 65 6e 74 65 72 |y" appea|r (enter|
|00000190| 20 6f 74 68 65 72 20 61 | 73 20 7a 65 72 6f 29 00 | other a|s zero).|
|000001a0| 00 52 00 05 ff ae 00 00 | f0 13 20 6e 6f 74 65 20 |.R......|.. note |
|000001b0| 74 68 61 74 20 74 68 65 | 20 66 75 6c 6c 20 69 6e |that the| full in|
|000001c0| 74 65 72 65 73 74 20 69 | 73 20 70 61 69 64 20 79 |terest i|s paid y|
|000001d0| 65 61 72 6c 79 20 62 75 | 74 20 74 68 65 20 70 61 |early bu|t the pa|
|000001e0| 79 6d 65 6e 74 73 20 61 | 72 65 20 6d 6f 6e 74 68 |yments a|re month|
|000001f0| 6c 79 00 00 00 36 00 06 | ff ac 00 00 f0 13 20 73 |ly...6..|...... s|
|00000200| 6f 20 6d 61 74 68 65 6d | 61 74 69 63 61 6c 20 69 |o mathem|atical i|
|00000210| 6e 74 65 72 65 73 74 20 | 69 73 20 73 6c 69 67 68 |nterest |is sligh|
|00000220| 74 6c 79 20 6c 61 72 67 | 65 72 00 00 00 08 00 07 |tly larg|er......|
|00000230| ff c8 00 00 00 00 00 42 | 00 08 ff f6 00 00 f2 08 |.......B|........|
|00000240| 20 31 2c 22 6d 6f 72 74 | 67 61 67 65 20 28 63 6d | 1,"mort|gage (cm|
|00000250| 64 2d 70 65 72 69 6f 64 | 20 74 6f 20 65 78 69 74 |d-period| to exit|
|00000260| 29 22 2c 28 34 2c 33 38 | 29 2d 28 36 35 30 2c 35 |)",(4,38|)-(650,5|
|00000270| 30 30 29 2c 5f 64 6f 63 | 00 00 00 26 00 09 ff bc |00),_doc|...&....|
|00000280| 00 00 f0 1a 20 41 2d 5a | 3a 69 3d 30 3a 53 3d 30 |.... A-Z|:i=0:S=0|
|00000290| 3a 50 3d 30 3a 79 3d 30 | 3a 6d 3d 30 3a 74 3d 30 |:P=0:y=0|:m=0:t=0|
|000002a0| 00 00 00 0c 00 0a ff d8 | 00 00 f0 1f 20 f0 66 00 |........|.... .f.|
|000002b0| 00 4e 00 0b ff f2 00 00 | f0 31 20 22 74 6f 74 61 |.N......|.1 "tota|
|000002c0| 6c 20 6d 6f 72 74 67 61 | 67 65 2c 74 69 6d 65 20 |l mortga|ge,time |
|000002d0| 69 6e 20 79 65 61 72 73 | 2c 6d 6f 6e 74 68 73 2c |in years|,months,|
|000002e0| 69 6e 74 65 72 65 73 74 | 20 72 61 74 65 2c 6d 6f |interest| rate,mo|
|000002f0| 6e 74 68 6c 79 20 70 61 | 79 6d 65 6e 74 73 22 00 |nthly pa|yments".|
|00000300| 00 14 00 0c ff b0 00 00 | f0 09 20 73 2c 79 2c 6d |........|.. s,y,m|
|00000310| 2c 69 2c 70 00 00 00 3a | 00 0d ff ea 00 00 52 3d |,i,p...:|......R=|
|00000320| 28 31 2b 49 2f 31 32 30 | 30 2e 30 29 3a 4a 3d 31 |(1+I/120|0.0):J=1|
|00000330| 2e 30 2f 52 3a 54 3d 59 | 2a 31 32 2e 30 2b 4d 3a |.0/R:T=Y|*12.0+M:|
|00000340| 49 3d 31 2e 30 2f 28 4a | 5e 31 32 2e 30 29 2d 31 |I=1.0/(J|^12.0)-1|
|00000350| 00 00 00 48 00 0e ff c4 | 00 00 f0 0f 20 53 3d 30 |...H....|.... S=0|
|00000360| 20 f6 07 20 70 3c 3e 30 | 20 f6 07 20 49 3c 3e 30 | .. p<>0| .. I<>0|
|00000370| 20 f6 07 20 74 3c 3e 30 | 20 f6 05 20 53 3d 20 50 | .. t<>0| .. S= P|
|00000380| 2a 28 31 2e 30 2d 4a 5e | 54 29 2f 28 31 2e 30 2d |*(1.0-J^|T)/(1.0-|
|00000390| 4a 29 2a 4a 3a f0 0d 20 | 22 4e 22 00 00 48 00 0f |J)*J:.. |"N"..H..|
|000003a0| ff b6 00 00 f0 0f 20 50 | 3d 30 20 f6 07 20 53 3c |...... P|=0 .. S<|
|000003b0| 3e 30 20 f6 07 20 49 3c | 3e 30 20 f6 07 20 74 3c |>0 .. I<|>0 .. t<|
|000003c0| 3e 30 20 f6 05 20 20 50 | 3d 53 2a 28 31 2e 30 2d |>0 ..  P|=S*(1.0-|
|000003d0| 4a 29 2f 28 31 2e 30 2d | 4a 5e 54 29 2f 4a 3a f0 |J)/(1.0-|J^T)/J:.|
|000003e0| 0d 20 22 4e 22 00 00 28 | 00 10 ff b6 00 02 f0 00 |. "N"..(|........|
|000003f0| 20 f0 0f 20 54 3d 30 20 | f6 07 20 53 3c 3e 30 20 | .. T=0 |.. S<>0 |
|00000400| f6 07 20 70 3c 3e 30 20 | f6 07 20 49 3c 3e 30 00 |.. p<>0 |.. I<>0.|
|00000410| 00 42 00 11 ff d6 02 02 | 54 3d f4 18 28 31 2e 30 |.B......|T=..(1.0|
|00000420| 2d 53 2f 50 2a 28 31 2e | 30 2d 4a 29 29 2f f4 18 |-S/P*(1.|0-J))/..|
|00000430| 20 28 4a 29 3a 54 3d 54 | 2d 31 3a 59 3d f4 13 28 | (J):T=T|-1:Y=..(|
|00000440| 54 2f 31 32 2e 30 29 3a | 4d 3d 54 2d 59 2a 31 32 |T/12.0):|M=T-Y*12|
|00000450| 2e 30 00 00 00 0e 00 12 | ff bc 02 02 f0 0d 20 22 |.0......|...... "|
|00000460| 4e 22 00 00 00 0c 00 13 | ff f0 00 00 f0 1f 20 f0 |N"......|...... .|
|00000470| 0f 00 00 2a 00 14 ff f2 | 00 02 f0 00 20 f0 0f 20 |...*....|.... .. |
|00000480| 49 3d 30 20 f6 07 20 54 | 3c 3e 30 20 f6 07 20 53 |I=0 .. T|<>0 .. S|
|00000490| 3c 3e 30 20 f6 07 20 70 | 3c 3e 30 20 00 00 00 18 |<>0 .. p|<>0 ....|
|000004a0| 00 15 ff d4 02 04 4a 3d | 2e 35 3a f0 01 20 4b 3d |......J=|.5:.. K=|
|000004b0| 31 20 f6 04 20 35 30 00 | 00 22 00 16 ff e6 04 04 |1 .. 50.|."......|
|000004c0| 4a 4c 3d 4a 3a 4a 3d 31 | 2e 30 2d 50 2f 53 2a 4a |JL=J:J=1|.0-P/S*J|
|000004d0| 2a 28 31 2e 30 2d 4a 5e | 54 29 00 00 00 18 00 17 |*(1.0-J^|T)......|
|000004e0| ff dc 02 02 f0 0f 20 4a | 4c 3c 3e 4a 20 f6 05 20 |...... J|L<>J .. |
|000004f0| f0 07 20 4b 00 00 00 1c | 00 18 ff e6 02 02 69 3d |.. K....|......i=|
|00000500| 31 32 30 30 2e 30 2a 28 | 31 2e 30 2f 4a 2d 31 2e |1200.0*(|1.0/J-1.|
|00000510| 30 29 00 00 00 0c 00 19 | ff e2 00 00 f0 1f 20 f0 |0)......|...... .|
|00000520| 0f 00 00 82 00 1a ff f2 | 00 00 22 4e 22 f0 31 20 |........|.."N".1 |
|00000530| 40 28 30 2c 32 30 29 22 | 53 55 4d 3d 22 3b 53 3b |@(0,20)"|SUM=";S;|
|00000540| 22 50 3d 22 3b 50 3b 22 | 59 45 41 52 53 3d 22 20 |"P=";P;"|YEARS=" |
|00000550| 3b 59 3b 20 22 4d 4f 4e | 54 48 53 3d 22 3b 4d 3b |;Y; "MON|THS=";M;|
|00000560| 22 49 4e 54 3d 22 3b 31 | 32 30 30 2e 30 2a 28 31 |"INT=";1|200.0*(1|
|00000570| 2e 30 2f 4a 2d 31 2e 30 | 29 3b 22 28 6d 61 74 68 |.0/J-1.0|);"(math|
|00000580| 65 6d 61 74 69 63 61 6c | 20 69 6e 74 65 72 65 73 |ematical| interes|
|00000590| 74 29 22 31 30 30 2e 30 | 2a 28 31 2f 4a 5e 31 32 |t)"100.0|*(1/J^12|
|000005a0| 2e 30 2d 31 29 00 00 46 | 00 1b ff 7c fe 00 f0 37 |.0-1)..F|...|...7|
|000005b0| 20 f2 0b 28 5f 64 6f 77 | 6e 29 3d 30 3a f0 38 20 | ..(_dow|n)=0:.8 |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 00 00 0a |        |     ...|
|000005f0| 00 1c ff b8 00 00 f0 1f | 00 00 00 08 00 1d ff f4 |........|........|
|00000600| 00 00 00 00 00 0a ff ff | ff f6 ff 3a f0 12 00 00 |........|...:....|
+--------+-------------------------+-------------------------+--------+--------+